home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / eflibpt4.zip / DEMO / SCREEN / VIRTSCR2.PAS < prev    next >
Pascal/Delphi Source File  |  1996-08-02  |  1KB  |  35 lines
  1. { Borland Pascal Extended Function Library - EFLIB (C) Johan Larsson, 1996
  2.   Demonstration; virtual screen handling #2 - performance test
  3.  
  4.   EFLIB IS PROTECTED BY THE COPYRIGHT LAW AND MAY NOT BE COPIED, SOLD OR
  5.   MANIPULATED. FOR MORE INFORMATION, SEE PROGRAM MANUAL! THIS DEMONSTRAT-
  6.   ION PROGRAM MAY FREELY BE USED AND DISTRIBUTED.                          }
  7.  
  8.  
  9. uses EFLIBDEF, EFLIBBAS, EFLIBSCR;
  10.  
  11. const TestScreens = 10000;
  12.  
  13. var MyScreen : VirtualScreenObjectType; RunTimer : TimerObjectType;
  14.     Index : word;
  15.  
  16.  
  17. begin
  18.      RunTimer.Initialize;
  19.      RandSeed := 0; { Control random seed }
  20.  
  21.      { Randomly place blocks on screen in high speed }
  22.      with MyScreen do begin
  23.           InitializeCopy;
  24.  
  25.           for Index := 1 to TestScreens do begin
  26.               RestoreArea (Random(ScreenWidth) + 1, Random(ScreenHeight-1) + 1,
  27.                            Random(ScreenWidth) + 1, Random(ScreenHeight-1) + 1,
  28.                            Random(ScreenWidth) + 1, Random(ScreenHeight-1) + 1);
  29.           end;
  30.           Restore;
  31.           Intercept;
  32.      end;
  33.      WriteLn (RunTimer.StringMS);
  34.      RunTimer.Intercept;
  35. end.